home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 055b.dms / 055b.adf / CELEBRITY_SOURCE / CELEB.lha / Equalizer.AMOS / Equalizer.amosSourceCode
AMOS Source Code  |  1992-02-26  |  1KB  |  44 lines
  1. ' "Ahh not another Graphic equalizer" by Paul Overy  
  2. '
  3. ' Size of bars can be changed. 
  4. ' If you prefer a solid bar then deleted the set pattern part. 
  5. '
  6. Dim R(3),M(3)
  7. '
  8. Screen Open 0,320,80,2,Lowres : Flash Off : Curs Off : Cls 0
  9. Double Buffer : Autoback 0 : Screen Display 0,,38,,
  10. '
  11. Draw 0,0 To 16,0 : Get Bob 1,0,0 To 16,2
  12. Set Pattern -1 : Cls 0
  13. '
  14. Track Load Fsel$("","","Load A Tracker Module"),15
  15. Track Play 15 : Palette 0,$FFF
  16. '
  17. Set Rainbow 0,1,32,"(2,1,1)","(2,1,1)","(2,1,1)"
  18. Set Rainbow 1,1,32,"(2,-1,1)","(2,-1,1)","(2,-1,1)"
  19. Rainbow 0,0,37,32 : Rainbow 1,0,72,32
  20. Rain(1,0)=$FFF : Rain(1,1)=$FFF
  21. '
  22. SIZE=10 : GAP=SIZE+2 : CLEAR=SIZE*4+8
  23. OFFSET=Screen Width(0)/2-(CLEAR/2)
  24. Add CLEAR,OFFSET : Add SIZE,OFFSET
  25. '
  26. Do 
  27.    For K=0 To 3
  28.       If R(K)>16
  29.          Add R(K),-2 : Rem Quick movements near full length 
  30.       Else 
  31.          If R(K)>0
  32.             Dec R(K) : Rem Slow bar down before disappearing  
  33.          End If 
  34.       End If 
  35.       R=Vumeter(K)
  36.       If R>0
  37.          R(K)=R/2
  38.       End If 
  39.       If R(K)<>0
  40.          Bar K*GAP+OFFSET,32-R(K) To K*GAP+SIZE,R(K)+32
  41.       End If 
  42.    Next K
  43.    Screen Swap : Wait Vbl : Cls 0,OFFSET,0 To CLEAR,65
  44. Loop